﻿Imports System
Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes

Namespace Views



    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Partial Public Class ViewCorrespondance
        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub New()
            MyBase.New()

            Me.InitializeComponent()

            ' Insert code required on object creation below this point.
        End Sub

        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Private Sub VariableStyle_PreviewMouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
            Try
                DragDrop.DoDragDrop(sender, sender.DataContext, DragDropEffects.Copy)
            Catch ex As Exception
            End Try
        End Sub

        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Private Sub VariableAttendueTbleEncours_Drop(ByVal sender As Object, ByVal e As System.Windows.DragEventArgs)
            '   CType(DataContext, Vi).paramChampsCible(sender, e)
        End Sub
    End Class

    Namespace Converters
        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public Class EtatChampsConverter
            Implements IValueConverter

            ''' <summary>
            ''' 
            ''' </summary>
            ''' <remarks></remarks>
            Public Function Convert(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.Convert
                Dim Etat = value 'As System.Drawing.Color = DirectCast(value, System.Drawing.Color)
                Dim EtatColor As Color
                EtatColor.R = Etat.R
                EtatColor.G = Etat.G
                EtatColor.B = Etat.B
                EtatColor.A = Etat.A
                Return New SolidColorBrush(EtatColor)
            End Function

            ''' <summary>
            ''' 
            ''' </summary>
            ''' <remarks></remarks>
            Public Function ConvertBack(ByVal value As Object, ByVal targetType As System.Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements System.Windows.Data.IValueConverter.ConvertBack
                Throw New NotImplementedException
            End Function
        End Class
    End Namespace
End Namespace